home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / mus / midi / rolandjv1080.lha / Roland.JV1080 / Install < prev    next >
Text File  |  1996-03-17  |  2KB  |  72 lines
  1. ; Install script for JV1080 (Workbench 2.0+)
  2. ; (c) Copyright 1996 Jon Rocatis
  3.  
  4. (set ppdir "")
  5.  
  6. (set @app-name "JV-1080")
  7.  
  8. ;=============================================================================
  9. ; make sure we are running under a 2.04 ROM
  10.  
  11. (if (< (/ (getversion) 65536) 37)
  12. (
  13.     (abort #bad-kick)
  14. ))
  15.  
  16. ;=============================================================================
  17. ; which language should be used?
  18.  
  19. (set #bad-kick "You must be using Kickstart 2.04 to install using this script!")
  20.  
  21. (set #where-apache "Where have you Apache installed?")
  22.  
  23. (set #install-msg (cat
  24.                  "\nRoland JV-1080 PlugIn installation script.\n"
  25.                  "This script installs the\nApache JV-1080 PlugIn\non your Amiga.\n\n"
  26.                  "You MUST have Apache installed!\n\n"
  27.                  "Read the Roland.JV1080 AmigaGuide for more\n"
  28.                  "information on the distribution.\n\n"
  29.                  "Roland JV-1080 PlugIn © 1996 Jon Rocatis\n"
  30.                  "All rights reserved."
  31.                 )
  32. )
  33.  
  34. ;=============================================================================
  35.  
  36. (message #install-msg)
  37.  
  38. (set ppdestdir
  39.     (tackon
  40.         (askdir
  41.             (prompt #where-apache)
  42.             (help @askdir-help)
  43.             (default @default-dest)
  44.         )
  45.         "PlugIns/Roland.JV1080"
  46.     )
  47. )
  48.  
  49. (set @default-dest ppdestdir)
  50.  
  51. ;--- Copy all the files
  52.  
  53. (message ppdestdir)
  54.  
  55. (copyfiles
  56.     (source ppdir)
  57.     (dest ppdestdir)
  58.     (all)
  59.     (infos)
  60. )    
  61.  
  62. ;-- Use AmigaGuide for guide viewing if user is running KS2.0
  63.  
  64. (if (< (/ (getversion) 65536) 39)
  65. (
  66.         (tooltype
  67.                 (dest (tackon ppdestdir "Roland.JV1080.guide"))
  68.                 (setdefaulttool "SYS:Utilities/AmigaGuide")
  69.         )
  70. ))
  71.  
  72.